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BB BB AA AA 0D DD SS TT AA AA SS YY YY ss 
8B BB AA AA DD DD SS TT AA AA SS YY YY $$ 
BB BB AA AA 0D DD SS TT AA AA SS yY YY $s 
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8B BB AA AA DD DD ss TT AA AA ss YY Ss eevee | 
BBBBBBBB AS AA DDDDDDDD SSSSSSSS TT Aa AA SSSSSSSS YY SSSSSSSS eeee | 
BBBBBBBB AA AA DDDDDDDD SSSSSSSS TT AA AA SSSSSSSS YY SSSSSSSS eeee 
LL IIIT] SSSSSSSS 
LL HII] SSSSSSSS 
LL II ss 
LL II ss 
LL I] $$ 
LL I] $$ 
LL II SSSSSS 
LL II SSSSSS 
LL I] $s 
LL I] $s 
LL I] SS 
LL II $s 
LLLLLLLLLL T1111] SSSSSSSS 
LLLLLLLLLL HW111] SSSSSSSS 
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Analyze/Media Stand Alone Support Module 18.20 $ep-1984 23:43:49 AX-11 Bliss-32 V4.0-742 Page 1 
14- =300 71382 $7:93:39 BAD. SRCIJBADSTASYS.832;1 ° (1) 
0001 MODULE badstasys (%TITLE “An alyze/Media Stand Alone Support Module’ 
000¢ 5 DENT = 'VO4~000°) = ry : 
ooo. 1 eon 
Bone : i eeeeeeerereeeeeeeeeeeneeeeeneteneteeeeererenerenreneeeeeeeneneeneeeeeeeeees 
'@ 
$007 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0008 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
Boye } + ALL RIGHTS RESERVED. * 
. 4 
0011 1 !* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Ole 1 !* ONLY IN ACCORDANCE WITH THE yenn OF SUCH LICENSE ue wea THE * 
015 1 !* INCLUSION OF THE ABOVE cOPIn Get OTICE. rhls SOFTWARE OR OTHER * 
014 1 !* COPIES THEREOF MAY NOT BE P ROVIDED OR OTHER WISE MADE AVAIL ABLE TO ANY * 
0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
bor$ : :* TRANSFERRED. * 
.* ® 
0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Ba59 : :: CORPORATION. * 
Py *® 
it 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
it : 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. e 
0025 1 !« * 
oosS i J SOSSSe Se SREgeRSeeSsoNSESNseNNseseERNeSesNTEeTeSeRESSNneESseSeNNNSeTSNeNeneTeS 
0028 1! 
0029 1 !++ 
0030 1! 
0031 1 ! Facility: 
Oog 1! 
0033 1! Analyze/Media 
0034 1! 
OR 82 ! Abstract: 
0089 1! This module contains the routines necessary to support $ ANALYZE/MEDIA 
sit | (aka BAD) in the standalone environment. 
0040 1 ! Environment: 
0041 1! 
BRe : : VAX/VMS User Mode, Non-Privileged 
Boge ! Author: 
0046 Michael T. Rhodes, Creation Date: February, 1983 
0048 1 | Modified By: 
0049 1! 
0050 1! v03-001 MTROO06 Michael T. Rhodes 29-Apr-1985 
Boe, I : Change references to RNALYZECMD to ANALYZCMD for fiche program. 
0083 1 ie. 
0054 1 
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Analyze/Media Stand Alone Support Module 1$-5e $1984 23:43:49 AX-11 Bliss-32 V4.0-74 Page 
Declarations ’ 1a-8ep-19 4 $7582.35 EBAD.SRC BADSTASYS.832; . 
055 1 ZSBITL ‘Declarations’ 
039 1 
1! 
0 8 1! Include Files: 
0059 1! 
00 8 1 REQUIRE ‘Lib$:baddef'; ! Define BAD's structures. 
3 : : LIBRARY ‘SYSSLIBRARY:LIB'; ! Define VMS structures. 
1 +! 
0 5 : Special Addressing/Linkage Declarations: 
8139 1 LINKAGE 
186 1 JSB = JSB : NOPRESERVE(2,3,4,5,6,7,8.9,10,11) ! Define JSB Linkage for Bugcheck Code. 
0187 1 JSB_RO = JSB(REGISTER=0): PRESERVE(O.1.2,5,4,5,6,7,8-9,10,11)» 
0188 1 JSB_PRESERVE = JSB: 
3434 } IN] = JSB : PRESERVE (0,1,2,3,4,5,6,7,8,9,10,11); ! Define Linkage for kernel modification. 
813) 1 FORWARD 
b198 : bugcheck_msg : VECTOR (14, BYTE]; ! Allow forward references to ‘Bugcheck" message. 
0194 1! 
0195 1! Table of Contents: 
0196 1! 
0197 1 FORWARD ROUTINE 
0198 #1 ad$bugc heck : JSB NOVALUE, ' Bugcheck handler for Stand Alone BAD. 
0199 1 bad$handler, ! Condition Handler for Stand Alone Bad. 
Bsoy 1 bad$install_code, ' Installs KERNEL mode code. 
0201 1 bad$putmsg_actrtn, ! Action routine for SPUTMSG. 
fa) 1 bad$sta_io : Performs stand alone terminal 10. | 
$34 1 bad$str_trim : NOVALUE, : Trim the string, a any trailing CR. 
0204 1 bad$valTdate_ pack : NOVALUE, ' Set Volume Valid bit in device UCB. 
0205 1 LIBSGET_INPUT, ' Library input routine. 
b60e 1 SYSSCLOSE ' Revectored SYSTEM/RMS routines to per tora 
0207 1 SYSSCONNECT, ' psuedo file operations on SYSSOUTPUT. 
0208 1 SYSSCREATE, : 
$344 1 SYSS$PUT; : 
0 1 
0211 1! 
0 i 1 ! Private Storage 
ge 
0215 1 dyn_buf_adr, ! Starting address of the dynamic string buffer. 
0 16 1 tt_chan, ! Channel number 
8 : : tt_iosb : VECTOR (4, WORD); ! 10 status block 
1 1 BIND } : 
$9 1 sys$output = SDESCRIPTOR ("SYSSOUTPUT') ' Terminal Name. 
3 ; ' image_name = SDESCRIPTOR ("STABACKUP.EXE'); | Image name for stand alone restart. 
1! 
: : External references: 
$ 1 EXTERNAL ROUTINE 
1 bad$alloc_mem : ADDRESSING_MODE (GENERAL), ' Allocate virtual memory. 
8 $ 1 bad$sync_To : ADDRESSING MODE (GENERAL), ! Perform synchronous 10. 
§ 1 boo$act image : ADDRESSING MODE (GENERAL) ! Restart the stand alone image. 
0250 1 ini$rdonly : IN] NOVALUE ADDRESSING_MODE (GENERAL),! Make VMS kernel read only. 
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_BADSTASYS Analyze/Media Stand Alone Support Module 18.56 1984 23:43:4 AX-11 Bliss<-32 V4.0-7 Page 3 
vO4 Declarat ions ¥ 1h-8ep- 198 $7 582359 BAD.SRC BADSTASY$ 832; . (2) 
s 335 3 ini$writable it NOVALUE nape ®t 33 ins MODE (GENERAL),! Make VMS 5 a writeable. 
; (116 § 1 CLISDCL PARSE DDRESSING_MODE (GENERAL), ' CLI call back rout 
; 115 1 CLISGET VALUE : ADDRESS ING-AODE (GENERAL), ; La call back rout ine. 
3 118 4 1 CLISPRESENT Pret $ HE bos Masi (GENERAL), ! CLI call back routine. 
ae } 5 1 STRSTRIM ADDRESSING MODE (GENERAL), ! Strin My - to trim ene blanks and tabs. 
; #118 § 1 CONSPUTCHAR ADDRESSING_MODE (GENERAL) JSB_RO NOVAL @ character out to the console termi 
; 12 . : CONSOWNCTY ADDRESSING _MODE (GENERAL) JSB_PRESERV ve WOVALUE: | ‘Allocate’’ the console terminal 
; 131 5 9 1 —, 
> ¢ 0240 1 exe$bug_check : ADDRESSING_MODE (GENERAL?, ! Address of the bugcheck code. 
3; 1% 41 1 analyzcmd, ; ponnene Lenguage efinition module. 
> 1246 tg 1 bad$gl_chan, ! 10 channe 
3 ie 45 1 bad$ga_comnd_line =: S$BBLOCK tds¢s 5-5- _bini, i Command Line descriptor. 
; 126 8 44 1 bad$gl_context : BITVECTOR (32 ! Context bits. 
s te7 45 1 bad$ga_device : SBBLOCK dsc$c_s_bin ° ! Device name descriptor. 
; 128 0 $$ 1 bad$gq_devnam : SBBLOCK Ldsc$c_s_bin], ! Device name descriptor. 
; 129 0247 1 pedsapn | cespec : SBBLOCK Cdsc$c_s_bin], ' File name descriptor. 
; 150 0248 1 bad$gl_ fun ! 10 function. 
3 13) 0249 1 bad$oa_ input. desc : SBBLOCK Cdsc$c_s_binl, ! Generic input descriptor. 
3 1s 0250 1 bad$gl_maxblock, ! Total number of blocks on the device. 
s; 1 0251 1 bad$ga_mdbs : REF SBBLOCK, ! Address of the MDBSF. 
; «(134 0636 1 bad$gl_pagcnt, ! Number of pages ts in “feet data buffer (1 & 2). 
3 W359 0255 1 bad$ga_sdbsf : REF $BBLOCK, ! Address of t ° 
>; «4136 0254 1 bad$gl_serialnum, ' Serial number ny , 
3 137 0255 1 bad$gl_status; ! Global status. 
3; «4138 0256 1 
; i 0257 1! 
; 140 0258 1 | Define message codes... 
: 141 0259 1: 
; be 0260 1 EXTERNAL LITERAL 
3 (14 0261 1 bad$_closeout, ! Error closing output. 
3. (144 oseg 1 bad$_openout, ! Error opening output file. 
3 «6145 §s6 1 bad$_readerr, ! Read error. 
3 «(146 0264 1 bad$_writeerr; ! Write error. 
3 (147 0265 1 


r—-——_ — -- - 


"BADSTASYS 
v04 


PAEQEQPMAA ASSIS 


WN "SO DONOUSWNO”D 


coco > i o 


RAVLSSELESLESLESELE 


So 
“ 


vuvvUvUU 
SGOSOOOOSOSOOSOCOSOCOOCOSOCOOCOSSOSOCSOCOCOCSOOCSOOCOCSOOOCOOOOOOOOSOOOOOOOCOO 


18-Sep-19 4 23: 
14 73 


Analyze/Media Stand Alone Support Module 43 
Declarations -Sep-1984 54 
68 1 GLOBAL ROUTINE bad$sta_init : NOVALUE = 
: ag 


OONAVE WN OOS NAUES WN 


ooo DOOD OO OOO OWDWWOWW WOON NIN NIN NIN NNO 
SSSLESEANLS a 


WAI Po Pononononofnononorofonofy 


WN 


1 

1 

1 

1 

1 
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1 

1 

1 

1 
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1 

1 

1 

1 

E 
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; Functional Description: 


e initial command parse. 
Implicit Outputs: 


the command Line has been obtained and parsed. 


™ 

BEGIN 

If .dyn_buf_adr EQL 0 
THEN 


BEGIN 
SCMKRNL (ROUTIN=bad$install_code); 
bad$alloc_mem (bad$k_page_size, dyn_buf_adr); 


E 
SCNTREG (PAGCNT = : 
ad$gl_context Ccetx_v_ltdevice]! 


gee gl_pagcnt * 2 


bad$ga_comnd_line Cdsc$w_length] = bad$k_command_len; 
bad$ga_comnd_line (dsc$b_dtype] 

dsc$b_class 

dsc$a_pointer 


pad$ga_device feet etaeed = 


‘ 
dsc$k_dtype_t; ! 
bad$ga_comnd_line dsc$k_class_s; 


bad$ga_comnd_line -dyn_buf_adr; 


} 
ad$k_devnam_ten; } 
Cc > . 
c 


bad$ga_device = ats 
bad$ga_device $k_class_s; : 


bad$ga_device 


b 
dsc$b_dtype] = ds 
dsc$b_class] = ds 


dsc$a_pointer] 
bad$ga_input_desc Heist] = bogsk, input len; 


d 
d 
= 


bad$ga_input_desc ([dsc$b_dtype] = dsc type_f; 
bad$ga_input_desc Cdsc$b_class] = dsc$k_class_s; 
bad$ga_input_desc 
bad$ga_filespec Cdsc$w_length] = bad$k_filename_len; ' 
bad$ga_filespec Cdsc$b_dtype] = dsc$k_dtype_t; : 
bad$ga_filespec [dsc$b_class] = dscSk gions $s; : 
bad$ga_filespec [dsc$a_pointer] = .bad 


DO BEGIN : 


S; ' 
-bad$ga_cdmnd_line Cdsc$a_ 


i] 
dsc$a_pointer) = .bad$ga_device Cdsc$a_ 


9 -YAX=11_BLiss-32 v4.0-74 Page 4 
? — EBAD. SRCJBADSTASYS 832; ont: 


This procedure is responsible for performing all of the necessary 
initialization for $ ANALYZE/MEDIA in the Stand Alone Environment. 

This includes such things as replacing the BUGCHECK code with a crude 
local bugcheck handler, allocation of dynamic buffers for the various 
ge A string descriptors, prompting for a command Line and performing 


The BUGCHECK code has been installed, the dynamic es descriptors 
have dynamic buffers allocated for them (and have been in 


itialized), 


If this is the first invocation, install the bugch 
routine, allocate the required data buffers and 
initialize the descriptors. 

Install the bugcheck handler. 

Allocate the dynamic string buffers. 


Its not the first invocation, therefore we must cl. 


the buffers which were previously allocated. 
If the device is a last track format device then 


the there are 2 buffers used for the MDBSF and SDS. 
+ _ .! otherwise there is just one buffer used for the SD/ 
odta| context Cctx_v_exercise]! If 
9 DT, 


the device was exercised then deallocate the da 


! buffers and the test pattern buffer. 


! Set command Line buffer length. 


Data type is text. 


' Class is fixed length string. 
! Set the starting address of the dynamic buffer. 


' Device specification descriptor. 


pointer] + bad$k_command_len; 
General purpose input descriptor. 


pointer] + bad$k_devnam_len; 
Output file specification descriptor. 


ga_input_desc {dsc$a_pointer] + bad$k_input_len; 


Get a command Line and validate it! . 


ol 


<@ 
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BADSTASYS Analyze/Media Stand Alone Support Module 15-Sep-1984 74 AX-11 Bliss-32 V4.0-74 Pp 
02000 Declarations 1a-8ep-1984 3:32 ‘$9 EBAD. SRCIBADSTASYS. §35: — (33 
3 3 LIBSGET_INPUT (bad$ga_input_desc, S$descriptor (ZCHAR(ZX'0D', Zx'OA'),"S ')); 
: oF ¢ padsst. Status = CL Igoe "PARSE (bad$ga_ input. desc, analyzcmd5; 
3 44 $ UNTIL .bad$gl_status; ! If the command syntax is ok, Return. 
: aii 8 1 END;  ! of GLOBAL ROUTINE bad$sta_init 
-TITLE BADSTASYS Analyze/Media Stand Alone Support Mod 
] IDENT \v04-000\ ” 
-PSECT SPLITS,NOWRT,NOEXE,2 
54 55 50 56 5S 4F 24 53 59 53 90000 P.AAB: ASCII \SYSSOUTPUT\ : 
Snons HI P=Ms Io 48 ag : 
45 58 45 2— SO 55 4B 43 41 42 41 3 Sabet P.AAD “ASCII YSTABACKUP..EXE\ : 
00000000 00024 P.AAC: <LONG 13 : 
00000000' 900 8 .ADDRESS P.AAD : 
OA OD 0002C P.AAF: <ASCII <13><10> : 
20 24 0002 eASCII \S \ : 
00000004 00030 P.AAE: .LONG 4 : 
00000000" 00034 -ADDRESS P.AAF : 
SOWNS ,NOEXE,2 
00000 DYN_BUF -ADR: » 
00004 TT_CHAN: BLKB 4 
00008 TTT10SB:.BLKB 8 


SYSSOUTPUT= 
IMAGE _NAME= 


*EXTRN 
.PSECT 


c AAA 


AAC 

BADSALLOF MEM, BADSSYNC 10 

BOOSACT IMAGE, RDONLY 

INI $WRI TABLE tLispee PARSE 

CLISGET ota: CLs SPRESE 
STRSTRIA, CONS AR 

CON Souncty, EXESBUG CHECK 


LYZCMD, *BADSGL _CRAN 
ADSGA Ll 


BADS$GA_COMN 

BADSGL~CONTERT, Ganssa DEVICE 
BADSGO-DEVNAM, BADSGA FILESPEC 
Bansal ty FU UNC BADSGA_ IRPUT “DESC 
BADSGA~ “HOBSE CBADSGL _PAGCNT 


smog; 


am 


Mia Be ee Oe Oe Be Os Oe Oe Be Be Be Oe Be Oe BESS Be Se Se Ss Se Se Se Ge Se Se Se Se os we Se Se Se Se os Be Ss Oe Oe Se ws Oe Oe Oe BF Oe Os Oe Oe OO Oe Oe Oe Oe Oe ee 


(———-----—— - —-—-—__- --—- -— —-—----— 


| 


| 
BADSTASYS Analyze/Media Stand Alone S$ rt Module 8 
04 Declarations rot 14 
000¢ 
00" CF ae 
33 $8096 CF 0 
| 63 D5 0000¢ 
Re 3 
7E 3 1 
0000v CF OF 1 
000000006 00 ¢ FB 0001 
ge 001D 
7 0200 = 28F C Boe 
000000006 0 2 FB 00024 
F Hi oS 
E 7C 00020 
7E 04 0002F 
93 00006 fr e9 + 1 
1 ¢ + 0 
8 1 00039 
51 1 oO sit 
oc 00006 gf 02 €1 OO03E 
0 0000G CF D0 00044 
50 9 C4 00049 
50 D6 Bopee 
9¢ 11 Q0O04E 
D4 00050 
6041 9F BR ag 
00000000G 00 04 FB 8002 
0000G CF 010E0084 8F 00 0005C 
0000G CF 63 DO 00065 
0000G CF O10E003F 8F D0 popee 
0000G CF 0000G CF 0000008 F C1 00073 
62 010E0084 F DO 0007F 
046 A2 0000G CF F C1 00086 
0000G CF 010E0084 F pO 0008D 
0000G CF 04 A2 00000084 8F C1 00096 
0000" CF 9F OOOA1 
38 DD OO0AS 
0000v CF 02 FB OO0A7 
0000G CF 9F OOOAC 
5 DD 00080 
00000000G 00 02 FB sate 
0000G CF 50 00 tit 
DE 0000G CF ry 008 
4 O000C 


3; Routine Size: 196 bytes, Routine Base: $CODE$ + 0000 


; 212 0329 1 
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18: 


wn 
Pw 


7$: 


74 Ax-11 iss- 4.0-74 
$9 yA Bliss-32 v4.0 


a HS: 


AD. SRCJBADSTASYS .B32; 

BADSSTA_INIT, fove R2,R3 
YN_BUF-ADR, R 

BADSGA_INPUT_DESC, R2 

DYN_BUF_ADR 

1$ 

(SP) 

BADSINSTALL_CODE 

’ » SYSSCMKRNL 

#512, =(SP) 

e. BADSALLOC_MEM 
(SP) 

(SP) 

BADSGL_CONTEXT+1, 2$ 
#2, RI 

#1, R1 

#2, BADSGL_CONTEXT, 4$ 
BADSGL_PAGCNT, RO 

#2, RO 

5$ 

RO 
fa. syssent 

719694853 


1 D 
#17556 52, BADSGA_INPUT_DESC 
#63, BADSGA DEVI 
#17694852, GADSGA FILESPEC 
#132, BADSGA_INPUT_DESC+4, - 
BADSGA_FILESPEC+4 


R 
RS LIBSGET_INPUT 
ANAL YZCMD 


R 
#2, CLISDCL_PARSE 

BADSGL_STATUS 
BADSGL_STATUS, 7$ 


am 


BADSTASYS Analyze/Media Stand Alone Support Module DM ~1386 3:43:46 AX-11 Bliss-32 v4.0 Page 
v04-000 ba dsy alidate_pack == Set Volume Valid bit in de 12-8084 1:54:2 BAD. SRC Bistasys o3e. 

; 216 9 1 ZSBTTL ‘bad$validate pack -- Set Volume valid bit in device UCB’ 

3; 215 1 GLOBAL ROUTINE bad$vaTidate_pack : NOVALUE = 

: $1$ Ble 

3 : ! Functional Description: 

; 0 $ 1: Since there is no DCL (hence, no $ MOUNT command) in the Stand Alone 

; 1 1 i Eng \eRnent we must eT sub set the Volume Valid bit in the device 

; 3 1 i UCB. This assures the 10 subsystem that a pack exists in the drive 

3 9 : and is spun up ready for action. 

3 2 8 ‘} ! Implicit Outputs: 

: i 0 £8 : The Volume Valid bit has been set. 

3 229 pace 1 i-- 

3 0 0 #6 BEGIN 

: 1 0 bad$gl_func = 10$_ PREEBER: ' Set the Volume Valid Bit in the UCB. 

3 ¢ 98 dO badSol” status = bad$s oyne cio () UNTIL -baddgt. status; ! Wait for Drive Ready before continuing. 
5 0349 1 END; !“of GLOBAL ROUTINE” bad$val idate_pack 


0000 00000 ENTRY reat tats PACK, Save nothing : 

0000G CF 08 v0 Banos MOVL #8 ONC 3 
000000006 00 00 4 00007 1$: CALLS 40, DADS SYAe 10 3 
0000G CF 50 D BO 0OF MOVL RO, BADS$GL STATUS ; 

EF 0000G CF €9 0001 BLBC BADSGL STATUS, 3 

04 00018 RET 3 


; Routine Size: 25 bytes, Routine Base: S$CODE$ + 00C4 


: 234 0350 1 


: 
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iw 


PAEMAANAAARUIINIT 
WN — SO OONOUELWN—O0W 


Arps oh 4 oo 4 
SOUSA Rowe 


i, es 
uw 


Ronohonononoforofory 
RES SSVOARAV=S 


Analyze/Media Stand Alone Support Module 
badSstr.tr m == Trim strin oF trattin 


SShueoru 
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SZSFae 
NOUS WIN — 


SHIP INININIAAPIPININI/JPIPINININI|NIA|IA IIIA at a dr rd ed ed ed 
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15-Sep-1984 $9:433$ re Bliss-32 Le Bh ct 


9 g blanks, 14-Sep-19 BAD.SRCJBADSTASYS.83 


ZSBTTL ‘badSstr_trim -- Trim string of gretling blanks, tabs and CR’ 
GLOBAL ROUTINE bad$str_trim (string desc) : NOVALUE = 
i 
Functional Description: 
is“ Trim the string provided using the string routine STRSTRIM. 
: Once the string has had the trailing oe and tabs removed check 
; to see if a trailing carriage return is on the line, if it is, then 
: decrement the string count by one. 
! Inputs: 
; string_desc adr Address of the string descriptor. 
; Ouputs: 
string_desc adr Address of the string descriptor. 
i Side Effects: 
i If the string has a carriage return as its last character, it is 
: removed by decrementing the length. 
-_ 
BEGIN 
LITERAL 
cr = &x'OD'; 
LOCAL 


char : BYTE; 


AP 
string_desc : REF S$BBLOCK; 
STRSTRIM (string_desc dscfu_tength}. 
string_desc Cdsc$w_length 
string-desc Cdsc$w length); 


char = .(.string_desc pdsc$a_ ninter) + 
(.string_ desc [dsc$w_length] - 1)); 


IF _ .char EQL cr 
THEN string_desc Cdsc$w_length] = .string_desc Cdsc$w_length] - 1; 


END; ! of GLOBAL ROUTINE bad$str_trim 


0004 00000 -ENTRY BADSSTR IRIN. Jove R2 
52 04 aC 00 00002 MOVL STRING_BESC, 
DD i PUSHL R 
DD 0000 PUSHL R 
DD O000A PUSHL R 


Page 


8 
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3; Routine Size: 


283 


Analyze/Media Stand Alone Support Module 


bad$str_trim <= Tr 
000000006 i 


38 bytes, 


03958 1 


1 
0D 


Routine Base: 


a5 6 aus 
04 =A 16 
6 0 QOO1A 
a Has 

8 ss) 

04 00025 


SCODES + O0DD 


S$ep-1984 23:43: 
stri ng of trailing blanks, dora 73 754: 


CAL 


4 AX=11 BLi V4.0-74 
2 BAD.SRCIBAD tisy $.B32; 
#3, STRSTRIM 

(3) BD 

(Re). RO RO 


-1(R0S, tar 
CHAR, #1 


(R2) 


= % 
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Analyze/Media Stand Alone Support Module 15-5e 1984 23:43:4 AX-11 Bliss-32 V4.0-74 Pa 10 
Revectored Library Routine sor TBSGET_ INPUT 12-805- 1384 43:82:37 {BAD .SRC BADSTASYS 03064 “ (6) 


ZSBTTL ‘Revectored b ioracy Meus tne -- LIBSGET_ INPUT’ 


BADSTASYS 
v04 


3 5 1 

: Be ret : GLOBAL ROUTINE LIBSGET_INPUT (desc, prompt, reflen) = 

; HY 40¢ | i 

: 34 : ? : } Functional Description: 

: 291 405 1! Stand Alone Environment replacement module, which simply calls a local 

: 35 88 : support procedure to perform a $Q10W with a read with prompt option. 

: 3 0408 i Inputs: 

; 33 Baie 1/ desc adr address of the input wets descriptor. 

; 2 411 1! prompt adr address of the prompt string descriptor. 

: 8 8218 } : retlen adr address of a word to receive the actual string length. 
; Q414 1 | Outputs: 

3 02 beg 1 The input te has been read and its contents reside in the buffer 

i RES : } pointed to by ‘desc’. The length field has been updated in the descriptor. 
; vo 0419 i Side Effects: 

: 4 36 1 : The buffer is initialized to all spaces prior to reading the input Line. 
; a 5 deere 

; 311 0425 2 BUILTIN 

H i 04 § NULLPARAMETER; 

i Ha 0658 5 MAP 

; Hi Be 4 desc : REF S$BBLOCK; 

: v 0431 CHSFILL <%C" ', .desc Cdsc$w_length], .desc Cdsc$a_pointer)); 

; 315 043 RETURN (bad$sta_io (10$_READPROMPT, 

3 ese bese desc escdulongthd. 

3 -prompt, 

; 3¢ 0436 if NOT NULLPARAMETER (3) 

s Se 0437 THEN .retlen 

3 $5¢ $38 § ELSE 0)); 

: 326 0440 1 END;  ! of GLOBAL ROUTINE LIBSGET_INPUT 


007¢ 00000 .ENTRY LIBSGET_INPUT, Save R2,R3,R4,R5,R6 > 0400 | 
56 04 ac DO 00002 MOVL bESC R : 0431 
6E 00 2C 00006 MOVCS #0, (SP), #32, (R6), a4(R6) : 
04 86 0008 ; 
03 C 91 00000 CMPBCéCAP),, #3 > 0436 
OA iF 1 BLSSU- si F | 
oc A 05 1 TST 12(AP) : 
05 13 0001 BEQL ~=sés«éS : 
0c ac dd 0001 PUSHL RETLEN > 0437 
02 11 OOO1A BRB 2$ ; | 


11 
BADSTASYS Analyze/Media Stand Alone Support Module s. ep-1984 23:43: AX-11 Bliss-32 V4.0-74 P 11 
iy Revectored ulbrary Routine spp TaSGE INPUT =3087 138% 49:92:59 BAD LSRE Baisfasv$ 103004 me (6) | 
7E D4 1C 1$: CLRL -(SP) 3 0436) 
08 DD ole 2$: PUSHL PROMPT 3 $ 
DD PUSHL R 3 0434. 
DD 00023 PUSHL #55 3 0433 
0000v CF 04 FB 00025 CALLS #4, BAD$STA_I0 : 
04 0002A RET 3; 0440. 


3; Routine Size: 43 bytes, Routine Base: $CODE$ + 0103 


s 327 0441 1 


Vath aE Bats SENG SI I aE ok SUR Ae eee BY ane cy 


11 
BADSTASYS Analyze/Media Stand Alone Support Module 18-5e $1984 23:43:49 AX-11 Bliss-32 V4.0-74 Page 12 { 
yOu. 008 SYSSCREATE == Custom Stand A one support proced 1h-8ep-19 4 11:54:27 BAD. SRC JBADSTASYS .832; . (7) iN 
3 rk 1 ZSBTTL ‘SYSSCREATE -- Custom Stand Alone support procedure’ 
3 0 Bee 1 GLOBAL ROUTINE SYSSCREATE (fab, err, suc) = 
3 1 444 1 !4¢ i 
3 ¢ 0445 1! 
$ ? bcd? : Functional Description: 
: 3 5 448 1! In the Stand Alone environment RMS does not exist, hence this routine 
3 0449 1! provides a crude solution for gerterning the SCREATE actions. The input | 
; 2 0450 1! arguments supplied by the caller are IGNORED. The vercer a actions are 
3 8 pees 1! performed: translate the Logical name ‘SYSSOUTPUT' provided by the system 
; 339 04 § 1! and assign a channel to the device. 
3; 340 Bee 23 
3; «341 0454 1 ! Inputs: y 
3 4 0455 1! 
; 34 0456 1! fab adr address of the FAB (ignored) | 
> 344 0457 1! err adr address of an error action routine Signerede: 
3 re bees : suc adr address of a success action routine (ignored) | 
: 347 0460 1! Implicit Outputs: 
3; 348 0461 1! : 
3 $08 pnes 1! A channel is established to SYSSOUTPUT. 
s 390 0463 1! 
3 SS) 0464 1 !-- 
3 326 0465 2 BEGIN 
3 $2 0466 LOCAL : : 
3: 354 0467 tt_desc : SBBLOCK Cdsc$c_s_bin], ! Device name descriptor 
: $22 Bees tt_name : SBBLOCK Cbad$k_devnam_len + 1]; ! Device name buffer 
; 357 0470 5 IF .tt_chan EQL 0 ' Has a channel already been established? 
3 $26 oe gg : No, allocate a CCB to point to SYSSOUTPUT. 
: 360 047 CHSFILL (0, dsc$c_s_bln, tt_desc); i Initialize the descriptor. 
; 361 0474 tt_desc b¢scou_lengthd = bad$k_devnam_len + 1; ' Lengt 
: ¢ pee ; tt_desc Cdsc$a_pointer] = tt_name; ! Address 
: P0477 3 STRNLOG (LOGNAM = sys$output, ! Translate SYSSOUTPUT to determine the | 
: b bere ; eat Le . tt desc, ' correct output device. 
: 0480 3 . ; 
3 begs 3 pesslen (DEVNAM = tt_desc, CHAN = tt_chan); ! Assign a channel to the output device. 
: 048 : | 
3 pees RETURN ss$_normal; 
; be8e END; ! of GLOBAL ROUTINE SYS$CREATE 
-EXTRN SYSS$TRNLOG, SYSSASSIGN 
Se Ba Phas 80000 guurey SUSSEREATE Save R2,R3,R4,R5 : 0443 
0000" ¢F 05 9006 tstt 11 CHAN” ; 0470. 
08 00 6E o 00 2c 900¢ MOVCS id, (SP), #0, #8, TT_DESC ; 0473, 
40 AE 40 8F 98 00013 MOVZBW #64, TT_DESC 5 0474, 


_ 
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BADSTASYS Analyze/Media Stand Alone Support Module 18S 1984 23:43:49 AX-11 Bliss-32 V4.0-74 Page 13 
v04-000 SYSSCREATE =- Custom Stand A one support proced 12-8 08- 198 $9 :93:59 YBAD.SRe BADSTASYS.832; ° (7) 
44 SAE —E 9€ 18 MOVAB TT_NAME, TT_DESC+4 : oo73 
—E 7¢ Cc CLROQ -(SP) 3: 0479 
E 4 1 CLAL -(SP) $ 
4 AE 9F PUSHAB TT_DESC 3 
5 AE ar PUSHAB TT DESC 3 
0000" CF 9F 6 PUSHAB SYSSOUTPUT : 
000000006 00 6 FB A CALLS #6, SYSS$TRNLOG 3 
— 7C 1 LRG. = §P) + 0481 
0000' CF 9F 000 ; PUSHAB TT_CHAN : 
AE 9F 000 PUSHAB TT_DESC 3 
000000006 00 e FB OOO3A CALLS #4, SYSS$ASSIGN 3 
50 1 B0 BRee 1$ MOVL #1, RO 3: 0484. 
4 00044 RET 3; 0486. 


Routine Size: 69 bytes, Routine Base: S$CODE$ + 012E 


: 374 0487 1 


Be Se Ge Ge Se ee Ge Ge SH Se Se Se ee Sees 
iw 
co 


; Routine Size: 


5; mw 


ie Oh ieee Me etd 
BAD. SRCJBADSTASYS.B32; 


12 
oneal ree (nee'e Stand Alone support Module 18-54 ,-19 4 $3°62:39 
SYSSCONNECT == Custom Stand Alone support proce 14-Sep-1984 11:54:27 
0488 1 ZSBITL ‘SYSSCONNECT <= Custom Stand Alone support procedure’ 
rt 8 : GLOBAL ROUTINE SYSSCONNECT (rab, err, suc) = 
491 1! 
83 : Functional Description: 
0494 1! In the Stand Alone environment RMS does not exist, hence this routine 
0495 1! provides a crude solution for performing the SCONNECT actions. The input 
0496 1! arguments are IGNORED. This routine performs only one (1) action: it 
0497 1! returns to the caller with sucess status. 
0498 1! 
0499 1 !<- 
Bens § BEGIN 
0501 RETURN ss$_normal; 
0502 1 END; ! of GLOBAL ROUTINE SYSSCONNECT 


0000 00000 ENTRY SYS$CONNECT, Save nothing 
MOVL #1, RO 


50 01 00 00002 
04 00005 
6 bytes, Routine Base: S$CODE$ + 0173 


0503 1 


: 0489. 
; 0501. 
: 0502 | 


————__——————__——_—_ misma eaen atatsaa ia 


| 
| BADSTASYS NL ha Se Stand Alone Support Module $43 -$ep-1984 23: $392: 


9 aye Bliss-32 V4.0-7 Page 
| VO4=" T == Custom Stand Alone support procedure 14-Sep-1984 7 B 


74 1 
:2 AD.SRCIJBADSTASYS. B32; (9 


ws 
oo 
bad 


S 
; 393 4 1 2SBTTL ‘SYSSPUT -- Custom Stand Alone support procedure’ 
: iy 28? : FLCC. ROUTINE SYSS$PUT (rab, err, suc) = 
; 396 209 ii 
; 44 B26 : } Functional Description: 
: 399 Baty 1! In the Stand Alone environment RMS does not exist, hence this routine 
; 400 0511 1! provides a crude solution for performing the $PUT actions. The ‘rab' 
: ret B26 : } nput argument is the only argument used, the others are IGNORED. 
s ret Sele : The action taken is as follows: 
; 405 0516 1! The buffer address and ony are extracted from the RAB ong placed 
: 406 0517 1! into a local Geacriptor. he size of the Line is checked 
3; 407 0518 1! length of zero (0) indi éating a blank Line should be outp it 
: 408 0519 1! this is true, then the rr ptor is pointed the a local PCRLF pair 
; 409 best 1! and the length is set to 2 4+ a B Otherwise, a CRLF is appended 
: 410 0521 1! to the string passed (fake RAT=CR) and the length is bumped up by 
: 411 b25§ 1! 2 ee The string is the printed and we return status fron” the 
3 a 0523 1! 
; 41 0524 1! 
3; 616 0525 1! Inputs 
; 415 0526 1! 
; 416 g262 1 | rab adr address of the RAB : ; 
; 417 0528 1! err adr address of an error routine (ignored) 
3 rt 8262 : suc adr address of a success routine (ignored) 
: 420 0531 1 ! Implicit Outputs: 
: 421 O26 1! 
3 $$8 0535 1! The Line has been written to the output file. 
3; 4 0534 1! 
: 424 0535 1 !-- 
3: 425 0536 2 BEGIN 
; 426 0537 § BUILTIN 
3; 427 0538 PROBEW; 
; 428 0539 
: o6n 0540 MAP 
; 430 0541 rab : REF S$BBLOCK; 
3 431 b266 
3 $38 054 LOCAL 
3; 43 0544 cr_lf : WORD INITIAL (%xX'ODOA'), ' Local CRLR datum. 
> 634 0545 2 Line “desc : SBBLOCK Cdsc$c_s _blnl, ' Descriptor formed from the RAB RBF 
: $3? Beco mode: BYTE INITIAL (prt$c_uw); ' Hardware Protection code for User 
; 4 0548 Line_desc fdsc$u. Length) = .rab Crab$w_rsz]; ' Get the record size. 
3 $38 eats line_desc (Cdsc$a_ “pointerJ= -rab Crab$l"-rbf); ' Get the record buffer address. 
3; 440 0551 IF .line_desc Cdsc$w_length) EQL 0 ' If no string is provided, then we 
: red 0336 — ' write a blank Line. 
3 «46 0554 he y= dsc$a_ otnterd © cre lf; ! Address of the carriage return Lin 
3 rer 0336 Line. “desc Cdsc$w_length] ! String Length. 
5 6 55 
: 464 0558 If PROBEW (mode, Line_desc Cdsc$w_length], .line_desc (Cdsc$a -pointer)) ‘A string was provided, can a CR 
3 448 0559 ' Yes, append the carriage return Li 
3 64449 0560 BEGIN ! onto the Line and adjust the Lengt 


- 


; Routine Size: 110 bytes, 


B 
V 
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ADSTASYS Analyze/Media Stand Alone Support Module 1.38 =1984 23:43:4 AX-11 Bliss-32 V4.0-742 
00008 SYSSPUT -- Custom Stand Alene’ support procedure 12-80 8-1he 3 4:2 YBAD. SRE BADSTASYS.832;1 
450 61 »Line_desc (Cdsc$a_pointer] + .line desc Cdsc$w_length] = .cr_lf; 
i see i inedesc Cdsc$u Tengthi = . Line_désc fascdw. Length nm. 
4 564 : 
t2e 8202 c NOT (bad$gl_status = bad$sta_io (1OS$_WRITELBLK, Line_desc)) 
t2 0367 SIGNAL (bad$_writeerr, 1, sys$output, .bad$gl_status); 
458 0369 RETURN ss$_normal; 
459 570 
460 0571 1 END; ! of GLOBAL ROUTINE SYS$PUT 
0000 00000 -ENTRY SYSS$PUT, Save nothing 
5E oc C2 4 SUBL2 alg SP 
6F OD0A 8F 80 0000 MOVW #3338, CR_LF 
51 04 90 OO00A MOVB 4, MODE 
50 04 AC 00 0000D MOVL AB, RO 
04 AE 2 AQ B60 00011 MOVW 34(RO), LINE_DESC 
08 AE 2 AO DO 00016 MOVL 40(RO), LINE_DESC+4 
04 AE B85 0001B TSTW LINE_DESC 
OA 12 OOO1E BNEQ 1$ 
08 AE 6E 9E 00020 MOVAB CR_LF, LINE_DESC+4 
04 AE 02 80 34 MOVW #2, LINE_DESC 
1 11 00028 BRB $ 
08 BE 04 AE 51 OD Benga 1$: PROBEW MODE, LINE_DESC, @LINE_DESC+4 
OF 13 00030 BEQL $ 
50 04 AE 3C 00032 MOVZWL LINE_DESC, RO 
50 08 AE 0 00036 ADDL2 LINE_DESC+4, RO 
60 6E C 0003A MOVZWLE CR_L 
04 AE 02 AO 0003p ADDW2 #2-> LINE_DESC 
04 AE 9F 00041 28 PUSHAB LINE_DESC 
20 DD 00044 PUSHL 
0000V CF 96 FB 00046 CALLS #2, BADSSTA_IO 
0000G CF DO 00048 MOVL RO, ADSGL_STATUS 
17 50 €E8 00050 BLBS . 
0000G CF ODD 8003 PUSHL BADS$GL_STATUS 
0000" CF 9F 0005 PUSHAB SYSSOUTPUT 
01 OD 30028 PUSHL #1 
000000006 8F ODD $228 PUSHL #BAD$_WRITEERR 
000000006 98 6f fe Boge CALLS #4, LIBSSIGNAL 
1 3 OO6A 38: MOVL #1, RO 
4 00060 RET 


Routine Base: S$CODE$ + 0179 
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Page 16 
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Analyze/Media Stand Alone Support Module 18-06 1984 23:43:4 AX-11 Bliss-32 V4.0-74 
SYSSCLOSE == Custom Stand Alone support procedu 12-8 08= 1982 7: 4:2 {BAD.SRE BassTAs$ 63201 
73° 1 XSBITL ‘SYSSCLOSE <= Custom Stand Alone support procedure’ 
i ! GLOBAL ROUTINE SYSSCLOSE (fab, err, suc) hee “ 
7% 1 
57% : Functional Description: 
579 1/3 In the Stand Alone environment RMS does not exist, hence this routine 
580 1! provides a crude solution for eal deka the SCLOSE actions. The input 
581 1! ergynents are IGNORED. This procedure disconnects the channel from 
82 é : : SYSSOUTPUT. 
Begs ! Implicit Inputs: 
beg9 : tt_chan Longword containing the channel to SYSSOUTPUT. 
0988 ! Side Effects: 
0590 1: Any problems in closing the output file will be reported via 
0391 1: a SIGNAL STOP. . oe . . 
B26 1! 
0593 1 !-- 
Bane ¢ BEGIN 
beoe iA ~ ee (bad$gl_status = SDASSGN (CHAN = .tt_chan)) 
0397 SIGNAL_STOP (bad$_closeout, 1, sys$output, .bad$gl_status); 
0599 tt_chan = 0; 
0600 
0601 RETURN ss$_normal; 
pone é 
060 1 END; ! of GLOBAL ROUTINE SYSSCLOSE 


-EXTRN SYSS$DASSGN 


0000 00000 ENTRY SYSSCLOSE, Save nothing 
0000" CF DD 00002 PUSHL w 
000000006 00 01 FB 00006 CALLS #17 SYSSDASSGN 
00006 CF 50 00 0000D MOVL RO, BADSGL_STATUS 
17 50 E8 90012 BLBS sé 
0000G CF DD 0001 PUSHL BADSGL_STATUS 
0000' CF 9F 00019 PUSHAB SYSSOUTPUT 
1 DD 0001D PUSHL 
000000006 8F DD OO001F PUSHL #BAD$_ CLOSEOUT 
000000006 00 04 FB 00025 CALLS #4, LIBSSTOP 
0000" CF 04 0002C 1$: CLRL TT_CHAN 
50 01 DO 000 9 MOVL #17 RO 
04 0003 RET 


52 bytes, Routine Base: S$CODE$ + 01E7 


0604 1 
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BADSTASYS Analyze/Media Stand Alone Support Module 15-56 1984 23:43:49 AX-11 Bliss-32 V4.0-74 Page 18 
vO4 bad$sta. io =-- Stand Alone 10’ support procedure 1228087138 $7 :82:39 YBAD.SRC BADSTASYS 83004 ’ (11) 
: 496 5 1 ZSBTTL ‘bad$sta_io -- Stand Alone 10 support procedure’ 
; ret : GLOBAL ROUTINE bad$sta_io (func, desc, prompt, length) = 
: 499 608 1 
3 501 $74 ! Functional Description: 
: be14 1 / Since there is no RMS support in the Stand Alone environment, this 
$ rt, poi¢ : : routine handles all terminal I0 functions by issuing $Q10Ws. 
; 268 0614 1 Inputs: 
3 208 0615 1! 
; 2? Beis 1! func val 10 operation to perform. 
; 508 1” 68 desc adr Address of the string descriptor. 
; 509 0618 1! proaet adr Address of the prompt string descriptor. COPTIONALJ 
: 219 +384 ; ength adr Address of a word to receive the string length. COPTIONAL] 
; se 0621 1 ! Routine Value: 
: 3} 06 ¢ 77 ; 
3 aie Be ? ; The routine value is the completion status of the $Q10W. 
: 516 0625 1! IF the SQ10W was successful but the terminating character was a “2, 
.. Ber 0626 1! then we will return RMSS_EOF. 
s ais 0627 1! 
: 233 Be : : Side Effects: 
; 521 0630 1! If a channel has not been established to the output device (SYSSOUTPUT), 
3 : ; ott ; } one will be created before attempting the I0 operation. 
: 524 0633 1 in. 
: 525 0634 BEGIN 
3 tee 0635 BUILTIN 
3 Ser 0636 NULLPARAME TER; 
3 258 0637 
; > 0638 LITERAL 
ee: 0639 ctrl_2z = &xX'1A'; 
3 33) 0640 
3 236 0641 MAP 
: 3 peeg desc : REF $BBLOCK, 
; 534 064 prompt : REF S$BBLOCK; 
s 335 0644 
: 536 0645 BIND ; z 
3 tH Bees char = .desc Cdsc$a_pointer] : BYTE; ! Check first character of the input buffer for “2. 
; 539 0648 IF .tt chan EQ. 0 ! Has a channel been established to SYSSOUTPUT? 
: a? 4 THEN STREATE (FAB = sys$output); ! Calls revectored service procedure with a dummy ar 
; See 0651 If NOT (bad$gl_status = 
; 54 P boas $Q]0W ( FUNC = .func, ' Use supplied 10 function. 
: 30g P bese Tos8 = ittTiosb. Bot * beter 
PS = . o a . Vv e 
; 546 P 0655 Pl = -desc Fdscsa_ ointer), ! Buffer address. 
; 547 P 28 P2 = .desc Cdsc$w length), ! Buffer size. 7 
; 548 P 065 P5 = IF SL PARAS TES (3) ! If no proapt was supplied, set the default. 
3 3 . 38 Hig} nis Sita etatert nothing, otherwise use the prompt supplied. 
Py pr e 
2 551 P 0660 po= IF nui Coa METER (3) 
; 552 P 0661 THEN ! 


m1 


“vwvVoiz 


Fadbole: 302, rambo ama beianee= i il F elpiioe ate 
| BADSTASYS Analyze/Media Stand Alone Support Module 15-Sep-1984 23:43:49 AX-11 Bliss-32 V4.0-74 P 9 
Vv04 bad$sta.io -- Stand Alone 10 support procedure 14-Sep-19 4 $3:82:39 EBAD.SRC BADSTASYS 03064 a9¢ 41) 


ELSE .prompt Cdsc$w_length])) 


; H 3 § 
3 4 THEN ! NOTE: Any problems restart the image! 
3 s SIGNAL (CIF .func EQL I0S_WRITELBLK ! Force FATAL severity, include the other 
; $ 5 THEN bad$_writeerr + sts$k_severe ! arguments for consistency. 
; $6 FLSE bad$_readerr + sts$k_Severe, 
. : ? » sys$output, .bad$gl_status); 
; 560 e If .func NEQ 10$_WRITELBLK ! If we have just Sqnpretes a READ function... 
; 203 0 THEN ! Special case the following: 
3 6¢ 71 BEGIN ! See if the first character in the buffer is 
3 7 IF _.char EQL ctri_z ; 8 "2. is, then use the RMS$_EOF status 
3; 564 ea THEN ace status = RMSS$_EOF; ! to indicate a terminator was the first char seen. | 
; 565 74 IF NOT NULLPARAMETER (4) ! Was a return Length requested? 
3 0675 THEN .length = .tt_iosb (1); ! Yes, copy number of bytes read from the IOSB. 
; 567 8978 END; 
; 568 067 
; 569 0678 RETURN .bad$gl_status; 
: 570 0679 
3 Srl 0680 END; ! of GLOBAL ROUTINE bad$sta_io 
-EXTRN SYS$Q10W | 
001C 00000 ENTRY BADSSTA_IO, Save R2,R3,R4 : 0606) 
3¢ 0000" CF 9E 80006 MOVAB TT_CHAN, R : 
3 00006 CF 9€ 0000 MOVAB BADSGL STATUS, R3 ; | 
52 08 AC 00 0000C MOVL DESC, R2 3 0646) 
64 05 00010 vom, > 3h. 7 0648 | 
OB 12 00012 BNEQ 1$ : | 
0000" CF 9F 00014 PUSHAB SYSSOUTPUT : 0649, 
000000006 60 01 FB 00018 CALLS #1, SYSSCREATE 3 
0 6C 91 OOO1F 1$ CMPB (AP), #3 ; 0662 | 
0S iF 3 2 BLSSU) 2$ 3 
Oc AC D5 00024 TSTL 12(AP) : 
4 12 00027 BNEQ 3$ 3 
E 04 00029 2$ CLRL -(SP) 3 
04 11 94 B BRB 4$ 3 
7E oc BC a 0020 3$ MOVZWL @PROMPT, -(SP) : 
03 6c 91 990 1 4$ CMPB CAP), #8 ; 
05 1F 000 BLSSU 5$ 3 
oc AC 03 000 TSTL 12 (AP) ; 
4 12 00039 BNEQ 6$ 3 
3 fi 4 B 5$ CLRL =(SP) : 
0 1 00030 BRB 7$ : 
50 OC AC DO OOO3F 6$ VL PROMPT, RO : 
04 Ad 3 00 PUSHL  4(RO) : 
7 C 00046 7$ CLRQ -(SP) : 
7E 62 3C . MOVZWL (R2), =(SP) : 
04 A2 DD 00048 PUSHL 4(R25 ; 
7E 7C 00 CLRQ =(SP) 3 
4 A& DD PUSHL TT_IOSB 3 
4 AC 0D 00 PUSHL FUNC 3 
4 dD 00 : PUSHL TT_CHAN : 
000000006 0 E Pe OO0sA CALLS #13. SySsatow 
88 0 DO 0061 MOVL RO, BADSGL_STATUS : 


v-——————— 
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BADSTASYS Analyze/Media Stand Alone Support Module 18-5 1984 23:43:4 AX-11 Bliss-32 V4. 
vos bodttts.to == Stond Alone 10’bupcort srecedure Woaepeione Fiisecee | Hate sa haRestas Ve: 
- 38 Fs 51 Bt BASSGL STATUS 
0000' CF oF 2 A yg ey sscuTeut 
20 04 ac p $f cHPL FUNC, #32 
000000006 bb 0973 PUSHL #BADS_WRITEERR+4 
000000006 8F DD 9007 gs: PUSHL #BAD$_READERR+4 
000000006 00 04 FB gee $: CALLS #4, LIBSSIGNAL 
20 04 ae o OOO8A 10$: ier FUNC, #32 
1A 04 86 91 itd CMPB =«_« 4 (RZ), #26 
9 3 00094 BNEQ 
63 0001827A F pO 00096 MOVL #98938, BADSGL_STATUS 
04 6C 91 0009D 118: CMPB (AP), #4 
OA iF Ban BLSSU _-12$ 
10 AC b OOA TSTL 16 (AP) 
05 13 OOOA BEQL 12$ 
10 Bc 06 A& 3C 000A7 MOVZWL TT_IOSB+2, @LENGTH 
50 63 DO OOOAC 12$: MOVL BABSGL_STATUS, RO 
04 OOOAF RET 


; Routine Size: 176 bytes, Routine Base: SCODES + 0218 
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Analyze/Media Stand Alone Support Module 
Condition Handling Procedures 
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C9 CD 0000 
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ZRSBTTL ‘Condition Handling Procedures’ 
GLOBAL ROUTINE bad$Shandler (signal, mechanism) = 


Functional Description: 
This routine provides the mechanism for generating and displayin 


error messages SIGNALLed by BAD. To generate the messones we call 
SPUTMSG, however, the messages are displayed by the SPUTMSG action 


12 
14.36 1984 23:43:49 AX-11 Bliss-32 V4.0-74 
14 00-1384 $7:$2:3 teap. src BADSTASYS.B32; 


~-EXTRN SYSSPUTMSG, SYSSEXIT 
0004 6008 -ENTRY BADSHANDLER, Save R2 
52 o ac DO 0000 MOVL GNAL, 
00000920 = BF 4 A2 01 00006 CMPL 4(R2), #2536 
5 13 site| BEQL 
62 C2 0001 SUBL2 #2, (R2) 


i 


; 1 

3 1 

; , } 

; i 

; ,t 

3 1! 

3 & 

3 

3 1! 

; rs ! routine ‘bad$putmsg_actrtn’. 

3 Be 38 : Inputs: 

3; 3 0695 1! signal adr Address of the Standard VMS Signal Array. 

; 588 +24 1! mechansim adr Address of the Standard VMS Mechanism Array. 

; 589 0697 1! 

; 590 0698 1 ! Routine Value: 

; 591 5344 1! 

3 36 0700 1! SS$_CONTINUE 

3 39 0701 1! 

; 594 4474 1! Side Effects: 

: 296 $704 i If th ity of th is FATAL (SEVERE), the i i t d 

3 } e severity o e message is » the image is restarted. 

: 597 0705 1: . ’ . 

; 598 0706 1 !-- 

; 599 0707 BEGIN 

; 600 0708 MAP 

; 601 0709 signal : REF S$BBLOCK, ! Signal Array 

3 one gre mechanism : REF S$BBLOCK; ! Mechansim Array 

; 604 ore IF _ .signal Cchf$l_sig_namej NEQ ss$_unwind 

; 605 071 THEN 

; 606 0714 BEGIN . ; 
3; 607 0715 signal Cchf$l_sig_args] = ssignat CehfS$l_sig_args} - 2;! Strip PC and PSL from the argument List. 
; os on$ SPUTMSG (MSGVEC=.Signal, ACTRIN=bad$putmsg_actrtn); ! Format and ‘display’ the message. 
; 610 0718 IF (.signal Cchf$l_sig_name] AND sts$m_severity) EQL sts$k_severe 

; 611 0719 THEN 

; ol¢ 0720 4 BEGIN : 

3; 6f 0721 4 boo$Sactimage (image_name) ; ! Restart the image if severity was FATAL. 
R ore 0738 4 Sexit (); ! If restart fails, then ungracefully exit. 
3 O16 0724 END; 

3; «661 Bi¢? ; , 

3 oi8 8059 RETURN ss$_continue; ! Continue processing. 

; 620 0728 END; ! of GLOBAL ROUTINE bad$handler 


LALA LALALALALAIA THOM Bee MAG Me! 1 tA 


BS RSE ee Pre SS 
BADSTASYS ~_ ze/Media Stand Al S t Modul 15-Sep-1984 74 AxX-11 i 
naly n one Support Module 3 Sep + W $336 2:49 Bliss-32 V 


0-74 Pp 2 
tion Handling Procedures 14-Sep-1 BAD. SRC BaDsTASYS B30; age 45 
7E 7C 9013 CLRQ 3s = (SP?) : 0716 
0000v f 3 an18 PUSHAB BADSPUTMSG_ACTRTN : 
000000006 99 FB 0001 CALLS #4, SYSSPUTMSG : 
04 04 A2 00 FD 00 ; CMP ZV #0, #3, 40R2), #6 : 0718 
0000" CF 9F $6 A PUSHAB IMAGE_NAME : 0721) 
000000006 00 FB 99 : CALLS ‘. BOOSACT IMAGE 5 avas| 
000000006 99 1 PB $0 7 CALLS #1, SYSSEXIT : 
0 1 p OO3E 1$ MOVL #1. RO : 0726 
4 00041 RET : 0728. 


; Routine Size: 66 bytes, Routine Base: S$CODE$ + 02CB 


: 621 0729 #1 


OR qi eieia MFBFLBLBLVLVHVHVAVIVAA 1 


12 
BADSTASYS Analyze/Media Stand Alone § rt Modul 15-5 1984 23:43:4 AX-11 Bliss-3 
v0e fs ei ey ep-198e fi:se:37 — EBaD-sRcOADSTA 


“74 p 3 
Condition Handling Procedures 14-Sep-19 AD SREIBADSTASYS 53504 age $3 


2 


GLOBAL ROUTINE bad$Sputmsg_actrtn (desc) = 


: 7 

; 7 1 

; 7 1! 

; f ? : : Functional Description: ' 
3 735 1! This routine simply calls ‘bad$sta_io’ to write the formatted 
; 7 $ 1! signal message from SPUTMSG. We réturn FALSE to inhibit SPUTMSG | 
3 07 1} from attempting to write the message too (since there is no RMS 
3 4 : : : support in the stand alone environment!). : 
: 0740 1 ! Inputs: t 
3 ore 1! ' 
3 LOE) : : desc adr Address of the message string descriptor. ; 
3 0744 1 ! Routine Value: \ 
: 0745 1! ] 
: O768 1! FALSE Inhibit SPUTMSG from attempting to write the ' 
; 0747 1! signal message also. t 
; 0748 1! | 

; 0749 1 !-- 

; 0750 BEGIN 

; 0751 BUIL 

; O73¢ PROBEW; 

: 075 

3 0754 LOCAL 

3 0755 cr_lf : WORD INITIAL (%xX‘ODOA'), ! Local CRLR datum. : 

3 Bree mode : BYTE INITIAL (prt$c_uw): ! Hardware Protection code for User Writeabl 

; 0758 

3 1544 desc : REF S$BBLOCK; ! Signal message descriptor. 

; 0761 IF PROBEW (mode, desc Cdsc$w_length], .desc (Cdsc$a_pointer]) ! Can a CRLF be appended to the string? 

; 3534 THEN ! Yes, append the carriage return Line feed | 

; 076 BEGIN ! onto the Line and adjust the iength. 

3 0764 -desc Cdsc$a_pointer] + .desc Cdsc8u_Longth) = .er_lf; 

3 35 ¢4 desc Cdsc$w_Tength) = .desc Cdsc$w_léngth] + 2; 

: i | 

; O78 bad$sta_io (JOS_WRITELBLK, .desc); ! Display the error message. 

3 gee RETURN FALSE; ! Inhibit SPUTMSG from duplicating the effor | 

g 0772 END; ! of GLOBAL ROUTINE bad$putmsg_actrtn 


0004 00000 ENTRY BAR Sp UTASG ACTRIN, Save R2 : 0730 
52 ODOA af 900 MOVY #3338, CR_ : 0750 
51 4 0 MOVB soft ; | 
50 04 AC 00 OO00A MOVL DESC, R : 0761 
04 B0 60 51 : 000 PROBEW MODE, (RO), a4(RO) : 
0D 1 BEQL. 1$ : 
51 6 3 1 MOVZWL (RO), RI > 0764 
1 06 A ¢ 1 ADDL2 4 (ROS, RI : 
61 $2 3C 0001C MOVZWL CR_LF. (R1) : 


BAS TASYS anal yze/Redia fyand Alone Support Module 15- Fim 9 $3: $3: $3 AX-11 Bliss 


-32 V4. 05742 
on Handling Procedures 122368: BAD. SRC JBADSTASYS.832; 


60 AO if ADDW2 « (RO) 
DD 2 1%: PUSHL : 
DD 4 PUSHL #32 
FEES =sCF FB 00026 CALLS #2, BADSSTA_I0 
ee 0028 CLRL R 
4 00020 RET 


; Routine Size: 46 bytes, Routine Base: S$CODE$S + 030D 


3; 666 0773 1 


M12 
BADSTASYS Analyze/Media Stand Alone Support Module 15-Sep-19 
v04-000 Condition Handling Procedures’ ¥ 1a-8ep-19 


ae 
=r 


3:43: 
1:54 


9 YAX=11_BLiss-32_ v4.0-742 Page 25 
7 — EBAD. SRCJBADSTASYS.832;1 290 98) 


; 668 774 1 ROUTINE bad$Sbugcheck : JSB NOVALUE 

: 669 775 1 ls “ 7 

; 670 wre 1: 

: of) a ; } Functional Description: 

; £78 +8 1: This routine is written over exeseus, CH CK, in order to trap any 

: or re : } bugcheck that might occur during execution of Stand Alone BAD. 

3 67 ? ¢ 1 i EXESBUG_CHECK is overwitten with a ‘private’ routine, because the 

3; 67 7 1! console media containing the executive is not resident, hence the 

: ere oF : } bugcheck code cannot be loaded. 

i ip 789} beGin 

; 68 0788 

; 2434 BUILTIN 

> 684 790 ALT, 

; 685 0791 MFPR, 

; 686 145 MTPR; 

; 687 079 

3 ms r 3 . ‘ 

: 690 079 chars 

; $3 Ho44 MTPR (ZREF (Cipl$ ) $_ipl) ! No i Lt d! 

: plS_power), prs$_i 3 : No interrupts allowed! 

; 69 0799 2 CONSOWNCTY(); ‘4 hn te i “ALlocate’’ console terminal 
: one ttt msg_ptr = bugcheck_msg; ! Point to the message text. 
; 696 0808 BECR, totes FROM 14 TO 1 DO Set up ier synchronous 10 

; : @ e ‘Bugcheck’ message. 
; 698 0804 char = TH ptr(0); msg_ptr = .msg_ptr + 1; ! Get next ¢ aracter . 

: 344 ete 3 SONOPUT CHA T.char); ! Output character 

: 701 080 : 

; 702 0808 5 HALT (); ! Stop the processor! . 
3; 703 0809 1 END; ! Note that the message text is appended to 


12 1F DA 00000 BADSBUGCHECK: 
MTPR #31, #18 : 0798 
00000000G 00 16 80003 JSB CONSOWNCTY 3; 0799 
52 0000v CF 43 009 MOVAB BUGCHECK_MSG, MSG_PTR ; 0800 
51 OE i) Babes OVL #14, INDEX 3 Bane | 
50 9A 00011 1$: MOVZBL (MSG_PTR)+, CHAR > 0804 | 
000000006 006 if 00014 JSB CONSPUTCHAR : 0805. 
F4 51 €5 OOOTA SOBGTR INDEX, 1$ 3; 0802. 
00 Baie HALT ; 080 
05 OOO1E RSB ; 0809 
3; Routine Size: 31 bytes, Routine Base: $CODE$S + 0338 
704 0810 1 OWN ' this routine via PSECT manipulation. 
705 0811 1 bugcheck_msg : PSECT (S$CODE$) VECTOR (14, BYTE) 


ee SSE aaaneee 


— 
| 


BADSTASYS Anal 
v04 


Cond 


ti 


aS 
- 


/Media Stand Alone Support Module 15- “320-1984 $3: 243:4 AX-11 8B 


on Handling Procedures 


bad$bugcheck_end 


14-Sep-1 254:2 BAD. SRC 
INITIAL (BYTE —— (%40°015", %0°012', 0, 0), 


eck’ 
CHAR (40'015", 20°012"D)), 
: PSECT (SCODES) VECTOR [03; 


; END of ROUTINE bad$bugcheck 


iss 
BA DS 


-32 
DSTA 


V4. po 
SYS. 833: 


i 


Page 26 
29° 48) 


----- 


c 


~“N 


AIR NMIPIPNINININININ 2 2 SS 


WDNAOVUVLSWN $$ OVONAVUESWN (ODONOum 


te Bt tb te fee Bt ee Sit St Sn itn btn te tS i | 
WANNA 


3; Routine Size: 


; 745 
: 746 


a Stand Alone Support Module 
tion Handling Procedures 


ROUTINE badS$install_code = 
Functional Description: 
Implicit Inputs: 
Implicit Outputs: 


Routine Value: 
SS$_NORMAL 


BEGIN 
ini$writable ( 
ini$rdonly (); 
RETURN ss$_normal; 
END; 


= POPORIPURONUNNYD 2 tt 


00 00 OA OD 
68 63 65 68 63 67 75 42 
OA OD 


This routine is called to install KERNEL mode code. 
to overwrite EXESBUG_CHECK with local code (bad$bugcheck). 


CHSMOVE tBadsbugcheck_ end - bad$bugcheck, bad$bugcheck, exeSbug. 


13 
18-Sep-1984 23:43:49 VAXe11 BLiss-32 vé.0¢7 
1an0p- 1384 97582559 $Bab 


BAD.SRCIJBADSTASYS. B32; 


We call it 


Code and Data resident between ‘bad$bugcheck' and ‘bad$bugcheck_end’. 


EXESBUG_CHECK has been overwitten with the code specified above. 


! Make eh. m+ ge writeable. 
check 
“VMS Seles back to read only. 


! of ROUTINE bad$install_code 


2 


<13><10><0><0> 
\Bugcheck\ 
<135<10> 


OFFC 00000 BADSINSTALL_ CODE: 


000000006 


0 
000000006 00 Ag 3 
P 000000006 8 


0 
c3 1 
0 
1 


27 bytes, Routine Base: S$CODE$S + 036C 


.WORD Save R2,R3,R4,R5,R6,R7,R8.R9,R10,R11 
02 JSB INISWRI TABLE 
08 mos tnisape BADSBUGCHECK, EXESBUG_CHECK 
17 MOVL = #1, 
1A RET 


ose 


P99 18) 


am 


pe 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:BADSTASYS/OBJ=OBJ$:BADSTASYS MSRC$:BADSTASYS/UPDATE=(ENH$:BADSTASYS) 
; Size: 885 code + 90 data bytes 
Time: 00:14.3 


Elapsed Time: 00:58.3 
Lines/CPU Min: 3591 
“ey Ak iif 26593 
enery Used: 128 pages 
Compilation Complete 


13 

BADSTASYS Analyze/Media Stand Alone Support Module 1$-$e $1984 23:43:49 AX-11 Bliss-32 V4.0-742 
| v04=000 Condition earbi Procedures” 1278 08=1 382 $7 :82:59 tBAD. SRCIBADSTASYS.B832;1 
3: 747 0826 1eE ! of MODULE badstasys 

: 748 0855 0 EN DOM 

-EXTRN LIBSSIGNAL, LIBSSTOP 

$ PSECT SUMMARY 

: Name Bytes Attributes 

; SOWNS 16 NOVEC, WRT, RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SPLITS 56 NOVEC, *NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3; SCODES 903 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

Bi Re ee eee) Szag: - eS TS bee ane Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 37 0 1000 00:01.5 
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rae 


pH 
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